; 检查元素是否在列表中
(defun our-member (obj lst)
  (if (null lst)
    nil
    (if (eql (car lst) obj)
      lst
      (our-member (obj lst)))))

(print (our-member (read) (list (read) (read) (read))))
